inherited frmFichaTecnica: TfrmFichaTecnica
  Left = 241
  Top = 108
  Caption = ''
  ClientHeight = 561
  ClientWidth = 620
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 524
    Width = 620
    inherited Bitnovo: TBitBtn
      Top = 6
    end
  end
  inherited Panel2: TPanel
    Width = 620
    Height = 524
    inherited Panel3: TPanel
      Width = 618
      Caption = 'Ficha T'#233'cnica'
      inherited GroupBox1: TGroupBox
        Left = 539
      end
    end
    inherited Panel4: TPanel
      Width = 618
      Height = 482
      object Label1: TLabel [0]
        Left = 11
        Top = 10
        Width = 72
        Height = 13
        Hint = 'C'#243'digo do produto'
        Caption = 'Codigo produto'
        ParentShowHint = False
        ShowHint = True
      end
      object Label8: TLabel [1]
        Left = 577
        Top = 12
        Width = 14
        Height = 13
        Caption = 'Un'
      end
      object Label2: TLabel [2]
        Left = 151
        Top = 49
        Width = 30
        Height = 13
        Caption = 'Marca'
      end
      object Label3: TLabel [3]
        Left = 9
        Top = 377
        Width = 98
        Height = 13
        Hint = 'C'#243'digo do produto'
        Caption = 'Codigo mat'#233'ria prima'
        ParentShowHint = False
        ShowHint = True
      end
      object Label4: TLabel [4]
        Left = 476
        Top = 379
        Width = 14
        Height = 13
        Caption = 'Un'
      end
      object Label5: TLabel [5]
        Left = 511
        Top = 379
        Width = 55
        Height = 13
        Hint = 'C'#243'digo do produto'
        Caption = 'Quantidade'
        ParentShowHint = False
        ShowHint = True
      end
      inherited SbHints: TStatusBar
        Top = 459
        Width = 610
      end
      object BitProduto: TBitBtn
        Left = 129
        Top = 23
        Width = 22
        Height = 23
        Hint = 'Pesquisa Produto'
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = False
        OnClick = BitProdutoClick
      end
      object EditDescricaoProduto: TEdit
        Left = 151
        Top = 25
        Width = 422
        Height = 21
        TabStop = False
        Color = clBtnFace
        Ctl3D = True
        ParentCtl3D = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = False
        TabOrder = 2
      end
      object DBGrid2: TDBGrid
        Left = 4
        Top = 177
        Width = 611
        Height = 190
        Hint = 'Click na linha que deseja baixar / alterar'
        TabStop = False
        Ctl3D = False
        DataSource = DtSrc
        Enabled = False
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid2CellClick
        OnDrawColumnCell = DBGrid2DrawColumnCell
        Columns = <
          item
            Expanded = False
            FieldName = 'COI_IDFPRODUTO'
            ReadOnly = True
            Title.Caption = 'Codigo produto'
            Width = 94
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DESCRICAO'
            Title.Caption = 'Descri'#231#227'o'
            Width = 340
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'UNIDADE'
            Title.Caption = 'Unidade'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'COI_QUANTIDADE'
            ReadOnly = True
            Title.Caption = 'Quantidade'
            Width = 94
            Visible = True
          end>
      end
      object BitInserir: TBitBtn
        Left = 6
        Top = 424
        Width = 75
        Height = 25
        Hint = ' Baixa lancamento de cart'#227'o de cr'#233'dito '
        Caption = '&Inserir'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 11
        OnClick = BitInserirClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object BitCancelar: TBitBtn
        Left = 81
        Top = 424
        Width = 75
        Height = 25
        Hint = ' Extorna lancamento de cart'#227'o de Cr'#233'dito '
        Cancel = True
        Caption = 'Cancela'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 12
        OnClick = BitCancelarClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333000033338833333333333333333F333333333333
          0000333911833333983333333388F333333F3333000033391118333911833333
          38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
          911118111118333338F3338F833338F3000033333911111111833333338F3338
          3333F8330000333333911111183333333338F333333F83330000333333311111
          8333333333338F3333383333000033333339111183333333333338F333833333
          00003333339111118333333333333833338F3333000033333911181118333333
          33338333338F333300003333911183911183333333383338F338F33300003333
          9118333911183333338F33838F338F33000033333913333391113333338FF833
          38F338F300003333333333333919333333388333338FFF830000333333333333
          3333333333333333333888330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object StaticText1: TStaticText
        Left = 3
        Top = 160
        Width = 612
        Height = 17
        Alignment = taCenter
        AutoSize = False
        BorderStyle = sbsSingle
        Caption = 'Mat'#233'ria Prima'
        Color = clSkyBlue
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        TabOrder = 14
      end
      object EditMarcaProduto: TEdit
        Left = 150
        Top = 62
        Width = 461
        Height = 21
        TabStop = False
        Color = clBtnFace
        Ctl3D = True
        ParentCtl3D = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = False
        TabOrder = 4
      end
      object EditUnidadeProduto: TEdit
        Left = 577
        Top = 25
        Width = 34
        Height = 21
        TabStop = False
        Color = clBtnFace
        Ctl3D = True
        ParentCtl3D = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = False
        TabOrder = 3
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 88
        Width = 602
        Height = 57
        Caption = 'Observa'#231#245'es '
        TabOrder = 5
        object DBMemo1: TDBMemo
          Left = 5
          Top = 13
          Width = 591
          Height = 38
          DataField = 'FIC_OBSERVA'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 0
        end
      end
      object BitMateria: TBitBtn
        Left = 110
        Top = 390
        Width = 22
        Height = 23
        Hint = 'Pesquisa empresa.'
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
        TabStop = False
        OnClick = BitMateriaClick
      end
      object EdtDescricaoMateria: TEdit
        Left = 132
        Top = 392
        Width = 339
        Height = 21
        Hint = 'Exibe a fantasia da empresa.'
        TabStop = False
        Color = clBtnFace
        Ctl3D = True
        ParentCtl3D = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = False
        TabOrder = 15
      end
      object EdtUnidadeMateria: TEdit
        Left = 475
        Top = 392
        Width = 34
        Height = 21
        Hint = 'Exibe a fantasia da empresa.'
        TabStop = False
        Color = clBtnFace
        Ctl3D = True
        ParentCtl3D = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = False
        TabOrder = 9
      end
      object BitRetorna: TBitBtn
        Left = 157
        Top = 424
        Width = 75
        Height = 25
        Hint = ' Retorna ao grid de consulta '
        Caption = '&Retorna'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 13
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
          F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
          000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
          338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
          45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
          3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
          F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
          000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
          338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
          4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
          8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
          333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
          0000}
        NumGlyphs = 2
      end
      object EdtMateria: TEdit
        Left = 9
        Top = 391
        Width = 102
        Height = 21
        Hint = 'C'#243'digo da mat'#233'ria prima'
        CharCase = ecUpperCase
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        OnExit = EdtMateriaExit
      end
      object EdtQuantidade: TEdit
        Left = 512
        Top = 392
        Width = 98
        Height = 21
        Hint = 'Quantidade Mat'#233'ria Prima '
        CharCase = ecUpperCase
        Enabled = False
        TabOrder = 16
      end
      object EdtProduto: TEdit
        Left = 11
        Top = 24
        Width = 117
        Height = 21
        Hint = 'C'#243'digo do produto'
        CharCase = ecUpperCase
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtProdutoExit
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Ficha_tecnica
    Left = 88
    Top = 280
  end
  object DtSrcLancamentos: TDataSource
    DataSet = SQLC_Ficha_Tecnica_Item
    Left = 234
    Top = 281
  end
  object SQLC_Ficha_Tecnica_Item: TSQLClientDataSet
    CommandText = 
      'select fit_codigomateriaprima,fit_quantidade,fit_idfproduto'#13#10#13#10'f' +
      'rom FICHA_TECNICA_ITEM,PRODUTO_MATERIA_PRIMA'#13#10#13#10'where fit_idfpro' +
      'duto=:pidfproduto'#13#10#13#10'and fit_codigomateriaprima=pmp_codigo;'#13#10#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pidfproduto'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 237
    Top = 338
    object SQLC_Ficha_Tecnica_ItemFIT_CODIGOMATERIAPRIMA: TStringField
      FieldName = 'FIT_CODIGOMATERIAPRIMA'
      Required = True
      Size = 15
    end
    object SQLC_Ficha_Tecnica_ItemFIT_QUANTIDADE: TFMTBCDField
      FieldName = 'FIT_QUANTIDADE'
      Required = True
      DisplayFormat = '###,###,###.00'
      Precision = 15
      Size = 3
    end
    object SQLC_Ficha_Tecnica_ItemFIT_IDFPRODUTO: TIntegerField
      FieldName = 'FIT_IDFPRODUTO'
      Required = True
    end
    object SQLC_Ficha_Tecnica_ItemPMP_DESCRI: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'PMP_DESCRI'
    end
    object SQLC_Ficha_Tecnica_ItemPMP_UNIDADE: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'PMP_UNIDADE'
    end
  end
  object SQLC_Ficha_tecnica: TSQLClientDataSet
    CommandText = 'select * from FICHA_TECNICA where fic_idfproduto=:pcodigo;'#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 85
    Top = 339
    object SQLC_Ficha_tecnicaFIC_IDFPRODUTO: TIntegerField
      FieldName = 'FIC_IDFPRODUTO'
      Required = True
    end
    object SQLC_Ficha_tecnicaFIC_OBSERVA: TMemoField
      FieldName = 'FIC_OBSERVA'
      BlobType = ftMemo
      Size = 1
    end
  end
end
